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STARDEFFL.SDL = system user interface definitions 
Version: *v04-000' 


ARR RRARAALASALALA ARRAS ASAE ALAS ESE A SESE SERA SEER RESTS RRR SEERA RRR SESS DY 


® ® 
* COPYRIGHT (¢) 1978, 1980, 1982, 1984 BY . 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
* ALL RIGHTS RESERVED. * 

® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
s ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
© COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
e tt 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WIT NOTICE 
* AND. SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA LOROUIPRENT 
* CORPORAT!O" . 

a 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
* SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. ‘ 
POSEIDON OE RE RE EE, SATELLITE AN EER RT 


+ 
+ 


FACILITY: VAX/VMS System Macro Libraries 
ABSTRACT: 


This file contains the prt source for all user visible operating 
system interfaces from F to L. 


AUTHOR: The VMS Group CREATION DATE: 1-Aug-1976 
MODIFIED BY: 
v03-073 MSHO067 Michael S. Harvey 19-Jul-1984 
Add some JP] items that had been overlooked. 
v03-072 ACG0438 Andrew C. Goldstein. 17-Jul-1984 19:14 
Add flush cache ACP control function 
v03-071 $RB0130 teve Beckhardt 17-May-1984 


S 
Added LCKSM_NODLCKBLK to SLCKDEF 


AAA AAA AANA NNN ENN a 
4 
>] 
~ 
o 


STARDEFFL.SDL;1 16-SEP-1984 16:46:5%.76 Page 


: 
: 
: 
| 
¢ 
: 
: 
| 
| 


v03-070 EMD0093 Eben M. Dusseault 30-Apr-1984 
Rearrange 10 modifier bits for d sk and tape e devices 
$o th 3 they remain in the oa | places as they were 
for V ad moved them rey ously so that they 
were not consistent with ° 


v03-069 Jeeoe? Tim Halvorsen 12-Apr-1984 
Fix -068 so that it cggpites = the new bits caused 
the structure to exceed 


V03-068 EAD0144 Elliott A. Prazton ~Apr-1984 
Added LPS_SIXELS and LP$ _BITMA PED for A. ators. 

v03-067 — $0002 Christian D. Saether 11-Apr-1984 
Remove FIBSL _ACCLKID field. 

V03-066 HWS0057 Harold Schultz 11-Apr-1984 
Add JPIS_MASTER_PID item. 

v03-065 $RB0120 Steve Beckhardt 99-Apr-1984 
Added LCKSM_NODLCKWT to SLCKDEF 

V03-064 RNGO064 Rod Gam art 
Change name of $LKID i* nate STATE to Ratt jeuee and 
change name of LKISL_ MSYSTER to LKISL_REMSYSID. 

v0O3-063 —mMD0075 Ellen Dusseault 07-Apr-1984 


Add modifier, I0$M ‘ENCRYPT. to SIODEF and rearrange 
ie qoevense of diSk and tape modifiers to make room 
or it. 


vO3-062 TMKOO0S Todd M. 29-Mar-1984 
Add LNMSC_TABNAMLEN, the oo size of a logical name table 
name or a peogicel name contained within a directory table, and 


Ty peal H, the maximum logical name recursion depth, to 
v03-061 RNGO061 Rod G 24-Mar-1984 
Ada LKISL_REMLKID lol *Thist _REMSYSTEM to SLKIDEF. 
V03-060 CwWH3060 CW Hobbs 20-Mar-1984 
hdd JPIS_PROC_INDEX iten 
v03-059 LMP0209 L. Mark Pilant 9-Mar-1984 9:46 
Add an ACL return status tield’ to the FIB. 
v03-058 nel Michael S. Harvey 16-Feb-1984 


Add JPI$_TABL 
Add JPI$"CREPRC_FLAGS 
Add JPI$_UAF_FLAGS 


v03-057 LMP0189 L. Mark Pilant 6-Feb-1984 13:45 
Add FIBSV_DIRACL to ot the ACP propagate the ACL on 
directory files. 


v03-056 EMD0044 Ellen M. Dusseault 1-Feb-1984 
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v03-055 


WOs-O08 


v03-053 


v03-052 


v03-051 


v03-050 R 


v03-049 


v03-048 


v03-047 


v03-046 kK 


v03-045 


V03-044 
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Add bitnagk for Hol bbagk which is a new Line printer 
characteristic in LPDE 


LMPO186 lant 11-Feb-1984 9:48 
Add FIBS$V PROPAGATE” to "elias the propagation of attributes 
on an ACP enter as well as a create. 


Meg D 26-Jan-1984 16:55 
q-the pode FIBSC OC LSEREXEP to the FIBSW_CNTRLFUNC field 
s will allow users to clear serious exceptions from 
the ues drive when running in USER HANDLING fo EOT mode. 


ACGO385 Andrew C. Goldstein, 29-Dec-1983 15:45 
Add JPI$_JOBTYPE 


0w0265 alph 0 Weber 7-DEC-1983 

Add IOSM_MSCP ro os_ SENSERODED and IO$M_FORCERR (for 

10$ WRITExBLK); two new 1/0 function modiffers required by the 
disk class driver for various elements of shadowed volumes 
support. 


TMKO004 Todd M. 19-Dec-1983 
Delete LNMSV_GROUP and UNSW SYSTEM from SLWNGER 


$H0087 Sco 07-Dec-1983 
Move SKGBDEF tren’ SYSDEFFL “SDL to STARDEFFL.SDOL 


vere is! Ralph 0. Weber 10-NOV-1983 
OSM RESS sonitier” for  DUDRIVER devices. eventyet ty 
bit will cause requests to be delivered with the 
RS modifier. Add the IOSM_SHADOW modifier for 
ces. this "nodi fier will be used by various 
ommands related to shadowed devices support. 
iosm NORSWAIT modifier for mo idon re requests. Eventually, 
setting pats will prevent mailbox driver from placing a 


s) 
i 
Ss 
e 


process in teseure? wait qcoqnecneng Like a the P request disable 
resource wait mode). This is required oy t ob controller 
fo © prevent malicious users from hanging the controller 
ACGO359 Andrew C. Goldstein, 16-Sep-1983 14:41 

Fix name of ALT _GRANTED bit in F1B 
ACGO354 Andrew C. Soldstetn, 13-Sep-1983 14:55 

Add alternate access “nest to FIB 


FHOOOS n Henderson & Sep 1983 

Add to SJPIDEF: "eis MODE, JPI$_CLINAME, 
and JPISK_xxx. Reaoué from SJPIDEF: 

ingividuel bits of PCBSL_STS pecouse they're 

defined in SYSDEF, not STARDE 


MIROO84 Michael I. Rosenblum 24-Aug-1983 
Add io$m_autoxof_ena and dis to iodef. 


RNGO044 Rod N. Gamache 22-Aug-1983 


—-- OC se 
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Add some field definitions and LKIS_REMLKID to SLKIDEF. 


VO3-043 TMKO003 Todd M 15-Aug-1983 
» Add LNM$V_GROUP and LNASV SYSTEM to SLNMDEF. 


V03-042 JSV0364 Joost Verhofstad 27-JUL-1983 
Add I10$V_GETMINFO 


VO3-041 MKLO128 


Kay Lyons 24-Jul-1983 
Add 10$M_JNL_ INIT for cluster journals. 


v03-030 wMC0030 Wayne Cardoza 05-Jul-1983 
Chained item Lists for GETJPI. 

V03-029 wMC0029 Wayne Cordoze 22-JUN-1983 
New parent item code for logical names. 

v03-038 MKLO115 y Lyons 22-Jun-1983 
Add I0$M_UPDADL aerY closest control journals. 

v03-037 MIROOS1 Michael I. Rosenblum 22-Jun-1983 


Add IOSM_BREAKTHRU to the io deffinitions 
Add tb and truncate to lpdef. 


v03-036 MKLO099 ry Kay Lyon 08-Jun-1983 

had REPOSITION ba ion ashi tier to SIODEF. 
v03-035 MKLOO91 ary Ka yons 25-May-1983 

Add LOSM_ACKWRITE to S1ODE 
v03-034 SRB0087 Steve Beckhardt 24-May-1983 

Added new flag bits RECOVER and PROTECT to $L KDEF. 
v03-033 LvY0372 Larry Yet 4-MAY-1983 14:21:05 

Add new function ot & aaa Onodifiers ter” journal 

fail over 
v03-032 DMwW4028 DMWalp 24-May-1983 


Added LNMB_ADDR item fo SLNMDEF, for internal use by 
MTL and mailbox UCB 


v03-031 STJ3098 Steven T. Jeffreys, 03-Ma 


- Identify ooek pe | of device-specific 1/0 tes Oe modifiers. 


- Shuffle folet d tee function code modifiers ground. 
x sui exee (bi Mr replaced oy, nese SWAP (b 
tt ECYL (bit io) replaced by 10$x_ERASE 
e result is thet biisk and tapes have - samen defintion 
sy 10$x_ERASE. 


v03-030 MIRO041 Michael I Rosenblum 29-Apr-1983 
Define new terminal write modifier IOSM_NEWL INE 


v03-029 RKS0029 RICK SPITZ Ratt Nae 
ADD SEVERAL NEW MODIFIERS TO THE TERMINAL DRIVER 
SET MODE FUNCTION TO SUPPORT CONNECT AND” SPAWN FEATURES 


ST 


| 
: 
c 
| 
| 
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v03-028 


v03-027 


v03-026 


v03-025 


v03-024 K 
v03-023 
v03-022 
v03-021 


v03-020 


v03-019 Kk 
v03-018 
v03-017 R 
v03-016 
v03-015 $ 
v03-014 
v03-013 
v03-012 


v03-011 
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TRKO00E Todd M. 


res sexists changes to SCNADEF . SNARES ernst nc Nor oF KIST to 


ISTS, and delete LNM$ _DUMP 
TMKOOO1 Todd M. 


-A fe 
Make several changes to SC NADER . Change LNMSO SUPERSEDE to LNMSV_CREATE_IF 


and add LNMS$V_NOT_EXIST. 


12:53 


LMP0098 L. k Pilant, 8-Apr-1983 
Add a field for the” ats to specify the rents access mode. 
$RB0072 teve Beckhardt 24-Mar-1983 


Added the tot Loving flags to Si cKDer : cAncel. CvTSYS, 


and INVVALBLK 


FHOO04 Henderson 23 Mar 1983 
Added PHDFLAGS .. *SUPIDEF., 
DMW4027 DMWalp Ay ithliae 
Changed SLNMDEF itemlist to start at 1, not 
SRBO0069 Steve Beckhardt 9-Mar-1983 
Added NOQUOTA bit to SLCKDEF. 
JSV0184 Joost Verhofstad 09-MAR-1983 
Add NEWVERSION modifiers. 
KFHOOO3 Ken Henderson 1 Mar 1983 


Added item-codes for geen bit in 
PCBSL Sts (in SJPIDEF) 


FHOOO2 Ken Henderson 10 Feb 1983 
Add JPIS_MSGMASK to SJPIDEF. 
JSV0140 Joost Verhofstad 08-F EB-1983 
Add IO$_NEWVERSION and IOSM_NEWVERSION 

NGO017 Rod N. Gamache 88-Feb-1983 
Ada SLKIDEF. 
CDS0001 Christian D. Saether 7-Jan-1983 
Add FIBSL_ACCLKID field to fib. 

TJ304 Steven T. Jeffreys 33-Jan-1983 
haded Tosm. ERASE i/o function code modifier. 
DMW4014 DMWalp 1-Dec-1982 
Added SLNMDEF 
ACG0303 Andrew C. Goldstein, 99-Dec-1982 


Add FILL attribute to extraneous field names 


FHOO01 Ken Henderson 
Add SFDLDEF section 


Jsv0085 Joost Verhofstad 


16:05 


24 Nov 1982 


20-0c t-1982 
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v03-010 
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Add IO0S$M_CREAJNLDIR and 10$V_CREAJNLDIR 


RLRSEREX Robert L. Ra rt 25-Aug-1982 
Add I0$M_ EL SEREXCP 1/0 function modi fier tor tape junctions.” 


v03-009 JSVO08 Joost ve rhofstad 12-Aug-1982 
Change 10$_RU ONTROL from rice. §0 v irtual 10 
and remove’ I0$_ENDRU1 and og ENDRU 
v03-008 JSVv0030 499 t Verhofstad 27-Jul-1982 
Add some RUCONTROL function modifiers and 
remove obsolete ones that were never used 
v03-007 MP0039 L. Mark Pilant, 15-Jul-1982 10:36 
Put che” rie ACL context in the correct place. 
v03-006 KBT0076 Keith B. Thompson 6-Jul-1982 
Add a i about changing the i of the fib 
v03-005 Mark Pilant 29-Jun-1982 11:00 


v03-004 


v03-003 


v03-002 


v03-001 


MP0036 i. 
Add FIB field to contain ACL context. This is used when 
reading the entire ACL for a file. 


JSvoos Joost Verhor sted 10-Jun-1982 
Add function codes and modifiers for journaling 
TJ0311 Steven T. Jeffreys 2-Jun-1982 
Add REMOUNT modifier for ACP control functions. 


str rence J. Kenah 7-Apr-1982 
Add JPI TRAGECOUNT for LIBSSPAUN's benefit 


mmMD0001 Meg D 5-Apr-1982 14:31 
Add function modifier definitions to me OOEF for xoDR VER 


ST, 
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fix FDLS$; 


fill; 


tr 


F union pre 
tf 
NG b 


ate F 


/* FOL CALL INTERFACE CONTROL FLAGS 
LD 


module SFDLDEF; 
/t- 


STARDEFFL.SDL;1 
aggre 
org 


Jee 


RETURN 
FDL SPEC 
(DEC ONLY) 


HAR STRING 
A_CHAR STRING 


ITS; 


end_module SFDLDEF; 
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module SF IBDEF; 


/* NOTE: 


16-SEP-1984 16:46:54. 78 Page 8 


* 
. LAYOUT OF THE FILE IDENTIFICATION BLOCK (F1IB) 


f the size of the FIB is changed the following must be changed 


1 
to reflect the change: 


In Module: CRMS.SRCIRMSFWADEF .SOL 
Field: FWAST_F IBBUF 
Constant: FWASC_FIBLEN 


Both the field and constant must be GEQ to the size of 
the FIB, i.e. FIBSC_LENGTH. FIB Length is currently 64. 


eggregate FIBDEF structure refix F IBS; 
union fill; 


OVERLAY 
ACCTL Longuord. uns toned 
ACCTL_BITCO structure fill 
NOWRITE bitfield mask; 
DLOCK bitfield mask; 
BLK_LOCK bitfield m 
FILC_1 bittietd fill ~ FIBDEF tag $$ 
SPOOL b tiield mask; 
WRITECK bitfield mask; 
SEQONLY TM Ph mask; 
FILL » tfield itt prefix FIBDEF tag $$; 
RITE b siiele ma 
READCK bitfield se 8 
READ bitfield mask; 
TRUNC bitfield mask 
FILL_3 bitfield Length 4 fill prefix FIBDEF 
ERecuTE pistiel ld mask; 
PRSRV_ATR bitfield mask; 
RMSLOCK ittield mask; 
oe) TS Tey bitfield mask: 
NOLOCK bitfield mask ae 
ECORD bitfield m 
FILL 4 pititete Sr 2 fill prefix FIBDEF 
end ACCTC atts 3 
ACCTL_BIT structure ¢ 
FILL_5 bitfield Len ah ‘5 fill prefix FIBDEF 
REWIND bitfield ma 
CURPOS bitfield meek: 
FILL_6 bitfield f 4 prefix FIBDEF tag $$; 
UPDATE bitfield mas 
end ACCTL_BITS1; 


/* ACCESS CONTROL BITS 


/* NO OTHER wearers 
/* pAatE DEACC ie 
/* ENABLE RMS-1 BLOCK LOCKING 


/* UNUSE 
/* SPOOL FILE ON CLOSE 
/* ENABLE WRITE CHECK 
ce SEQUENTIAL ONLY ACCESS 
® 
/* WRITE ACCESS 
/* ENABLE READ CHECK 
/* NO OTHER READERS 
/* FaLe MAY NOT BE TRUNCATED 
tag $$;/* SPARE 
/* THE HIGH 8 BITS CANNOT BE COPIED 
/* INTO THE ACCESS MODE WORD IN THE WINDOW 
/* ACCESS FOR EXECUTE (USE EXECUTE PROTECTION) 
/* PRESERVE ORIGINAL ATTRIBUTES OF FILE 
/* OPEN WITH RAS eh ete LOCKIN 
/* FORCE CACHE WRITE-THROUGH ON OPERATION 
/* OVERRIDE ACCESS INTERLOCKS 
/* DO NOT RECORD FILE ACCESS 
tag $$;/* SPARE 
tag $$ 
/* REWi 


WIND TAP 
/* CREATE AT CURRENT TAPE POSITION 
/* UPDATE MODE (POSITION TO START OF FILE) 


ST, 
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ACCTL b pf FEL RSe structure fil 43 
byte dimension 5 fill prefix FIBDEF 


“FID word “ya , St 3; 
constant ACCDATA equals . prefix FIBS t ; 
constant ACCDATA equals i. . prefix FIBS tag C; 
FID_FIELDS structure 

word uns joned: 
SEQ word unsigned; 
-BVERLAY "uhtes’ Ms 


Ll; 
d unsigned dimension 3; 
LOS structure fill; 

NUM word unsigned; 

“SEQ word unsigned; 
“RVN_OVERLAY union: fill; 
“DID_RVN word unsigned; 
ID-RVN_FIELDS structure fill; 


———eO Pa 3 


wcc die uns 


were 0 
CTL word Homatt 
aes TO DIRDAT ed: - prefix FIBS tag K; 
constant DIRDATA equals i » prefix FIB$ tag C; 
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ta 
$29 Fhbow SIZE 


/* FILE ID 

ABOVE DATA NEC 
/* ABOVE DATA NEC 
/* FILE N 
/* FILE SEQUENCE NUMBER 
/* RELATIVE VOLUME NUMBER 


/* SHORT FORM RVN 
* EXTENDED FILE NNUMBER 


/* DIRECTORY ID 


/* FILE NUMBER 
/* FILE SEQUENCE NUMBER 


/* RELATIVE VOLUME NUMBER 


/* SHORT FORM RVN 
/* EXTENDED FILE NUMBER 


/* WILD CARD CONTEXT 


/* NAME CONTROL BITS 
/* ABOVE DATA NECESSARY FOR 


DIRECT 
/* ABOVE DATA NECESSARY FOR DIRECT 


FILL? pyrystuce f 

bitfie d*tength 3 fill prefix FIBDEF tag $$; 

ALLVER Hine mas /* MATCH ALL VERSIONS 

ALLTYP bitfield mask; /* MATCH ALL TYPES 

ALUNAM NAM bitfield m /* MATCH ALL NAMES 

FILL_8 bitfield tength 2 fill prefix FIBDEF tag $$; 

WILD bitfield mask; /* WIL6 CARDS IN FILE NAME 
NEWVER bitf eld mask; /* MAXIMIZE VERSION NUMBER 
SUPERSEDE bitf eld shask: /* SUPERSEDE EXISTING FILE 

FI NDF 1D ittield /* SEARCH FOR FILE ID 

FILL_9 bitfield Length 2 fill prefix FIBDEF tag $$; 

LOWVER bitfield mas /* LOWER VERSION OF FILE EXISTS 
HIGHVER bitfield mask; /* HIGHER VERSION OF FILE EXISTS 


end NA 
end NMCTL_OVERLAY; 
EXCTL MOVERLAY union fill; 


ST, 
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EXCTL word unsigned; /* EXTEND CONTROL 
EXCTL BITS structure ti fill; 
ACCON b tt eld mask /* ALLOCATE CONTIGUOUS 
ALCONB bitfield mask: /* CONTIGUOUS | BEST EFFORT 
FILCON bittieta ne — /* * rate NTIGUOUS 
ALDEF bit eld ma /* ALLOCA E DEF AUL T AMOUNT 
ALLOCATR bit eld /* ACEMENT DATA PRESENT IN ATTRIBUTE LIST 
FILL 10 p ttield | dink; 2 fill prefix FIBDEF 9,3 ; 
EXTERD p tf eld ma sk; NABLE EXTENSION 
RUNC bitf eld mas ie ENABLE TRUNCATION 
NCHOKERT itfield nak: /* INHIBIT EXTENSION HEADERS 
MARKB KBAD bitfield m /* MARK BLOCKS BAD 
aM PEt Tengén 4 fill prefix FIBDEF tag $$; 
CHER RGE bitfield mas /* BON'T CHARGE DISKQUOTA 
end PRET BITS; 


end EXCTL OVERLAY; 


EXSZ Longword unsigned: /* EXTEND SIZE 
EXVBN lLongword uns /* EXTENSION VBN 
constant EXTDATA ary - prefix FIBS t 4 Gi /* ABOVE NECESSARY FOR BASIC FILE EXTENSION 
constant EXTDATA hee ‘ prefix FIBS t /* ABOVE NECESSARY FOR BASIC FILE EXTENSION 
ALOPTS SYERLAY unio 
AL Byte unsign sar /* ALLOCATION OPTIONS 
ALOPTS BIT S structure fill; 
EX KACT T bitfield mask; /* EXACT PLACEMENT REQUIRED 
a shenaitee mask; /* PUT ALLOCATION ON ONE CYLINDER 
end ALOPTS OOVERCAY: 
ALALIGN byte unsigned; /* ALLOCATION ALIGNMENT 
constant equals 1 prefix FIB tag $ /* CYLINDER ADDRESS SPECIFIED 
constant LBN equals prefix FIB tag $ /* LBN SPECIFIED 
constant VBN equals prefix FIB tag $ /* PROXIMATE VBN SPECIFIED 
constant RFI equals prefix FIB tag $ /* RELATED FILE ID SPECIFIED 
mLOe OVERLAY union t Ll; 
LOC word unsigned dimension 5; /* ALLOCATION LOCATION 
cohatent ALCDATA equals . prefix FIB$ tag K; /* ABOVE DATA NECESSARY FOR PLACEMENT 
constant ALCDATA equals {peers FIBS tag C; /* ABOVE DATA NECESSARY FOR PLACEMENT 
ALLOC_FIELDS structure fi 
LOc_FID -OVERLAY union iu: 
“LO D word unsigned dimension 3; /* RELATED FILE ID 
LOC"FID_FIELDS structure fill; 
“LOC word unsigned; /* RELATED FILE NUMBER 
LOC"SEQ word unsigned; /* FILE SEQUENCE NUMBER 
toe “RVN_OVERLAY union’ fill; 
“LOC"RVN word unsigned; /* RELATED RVN 
LOC"RVN_FIELDS structure fill; 
“EOC RYN yte unsigned; /* SHORT FORM RVN 
OC_NM NaF iELDS: unsigned; /* EXTENDED FILE NUMBER 
end toee _RVN_F 
end LOC _RVNT OVERLAY 
d LOC_FID “FIELDS: 
end LOC_FID-OVERLAY; 
LOC_ADDR lLongword unsigned; /* LOCATION ADDRESS (VBN, LBN, CYL) 
end ALL OC FIELDS; 
end ALLOCO VERLAY 
VERLIMIT sore st leads /* DIRECTORY ENTRY VERSION LIMIT 
AGENT_MODE byte uns igned; /* AGENTS ACCESS MODE 
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l 
ATUS Lon word. e ned; 
OVERLAYS nie 


ngvord unsigned: 
Te structure f Li; 
bitfield mask 
GRANT ED b i mask; 
bitfield mask 
PAGATE bitfield mask; 
end STA $ BITS; 
ond STATUS. OVERTAY: 
ALT ~ACCESS~ on word unsigned; 
constant ‘LENGTH’ equals . prefix 
constant “CENGTH" equals . prefix 


end FIBDEF; 


FIBDEF1 structure prefix F 

re UA qiaene ten | fill 4 8 FIBDEF tag $$; 
NTRCFU NC word unsi gne 
is DEFINE ACP CONTROL F NET iON CODES 


constan 


pir ant 


FIB$ t 
FIBS t tag C C; 


aah tea 


t( 

REWINDVOL 

POSEND 
NEXTVOL 
SPACE 
ILLEGAL 
REWINDFIL 
LOCK_VOL 
UNLK~VOL 


ENA_QUOTA 


ess © 8s 8&8 &© 8&8 & 
t 


CLS 
FLUSH CACHE 
equals 1 increment 1 prefix FIB tag $C; 
CNTRLVAL OVERLAY union fill; 
CNTRCVAL Longword unsigned; 
constant MTALEN equals . prefix FIB$ tag K 
constant MTALEN equals . prefix FIB$ tag C 


/t 
Gs CACHE IDENTIFIER CODES FOR FLUSH_CACHE 
? 
constant ( 
FID_CACHE 
~ EXTENT_CACHE 
QUOTA_CACHE 
§ equal 1 increment 1 prefix FIB tag $C; 


/t 
/t 
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4 XT FOR READ 
STATUS FROM ACL OPERATION 


GENERAL STATUS LONGWORD 


righ bent ACCESS pe de 
ALTERNATE ACCESS GRANTED 

DO DIRECTORY ACL PROPAGATION 
DO PROPAGATION ON ENTER 


SPARE 
ACL CON 
RETURN 


ALTERNATE ACCESS MASK 


/* ACP CONTROL FUNCTION 


APE HANDLING 


Paes A SERIOUS EXCP FROM A TAPE DRIVE 
ACP CONTROL re yyr VALUE PARAMETER 


LENGTH OF MTAACP 
LENGTH OF MTAACP DATA 
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/t 
HM CONTROL BITS FOR QUOTA FILE OPERATIONS 
CNTRLVAL_BITS structure a 
_AEM ld m 


ALL bitfield mask /* MATCH ALL MEMBER NUMBERS 

Att GRP bitfield maski /* MATCH ALL GROUP NUMBERS 

MOD ~ USE bittield mask: /* MODIFY USAGE DATA 

MOD"PERM bitfield mask; /* MODIFY PERMANENT QUOTA 

MOD“OVER bitfield mask: /* MODIFY OVERDRAFT LIMIT 
end CNTR VAC BITS; 


end CNTRLVAL_OVERLAY; 
end FIBDEF1; 


end_module $F IBDEF; 


9 
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module SF IDDEF; 
iS STRUCTURE OF A FILE ID (FID) 


aggregate FIDDEF structure prefix FID$; 
M word unsigned; /* 


SEQ word unsigned; /* 
RVN_OVERLAY union fill; 
RVN word uns laned: /* 
constant ‘LENGTH’ equals . prefix FID$ tag K; 
constant ‘LENGTH’ equals . prefix FID$ tag C; 
RVN_FIELDS structure fill; 
RVN byte unsigned; /* 
NMX byte unsigned; oe 
® 
constant ( 
INDEXF /* 
» BITMAP /* 
- BADBLK /* 
. MFO /* 
- CORIMG /* 
- VOLSET /* 
- CONTI /* 
- BACKUP /* 
» BADLOG /* 
FREFIL /* 
j equals 1 increment 1 prefix FID tag $C; 


end RVN_FIELDS; 
end RVN_OVERLAY; 
end FIDDEF; 


end_module SF IDDEF; 


FILE NUMBER 
FILE SEQUENCE NUMBER 


RELATIVE VOLUME NUMBER 


OF RVN 
ER EXTENSION 
OF THE RESERVED FILES 


FILE 
ATION FILE 


$ mn-o 
cn 
—C 4 OF 
mumamas mw 


L 


m Qo mre ym 


“on 


BAD BLOCK 
FREE SPAC L 
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nodule SIACDEF; 
fe IMAGE ACTIVATION CONTROL FLAGS 


aggregate IACDEF union prefix IAC$; 
IACDEF _BITS structure fill; 
ACT bitfield mask; 

WRITABLE bitfield mask 
SHAREABLE bitfield mask; 
eR IVILEGs pietiet¢ mask; 
MERGE b rf eld mask; 
EXPREG b ttield mask 
PIMERGE bitfield mask; 
FILL_1 bitfield fill prefix IACDEF tag $$; 
LASTCLU bitfield mask; 
LIM bitfield mask; 
RETRY bitfield mask; 
NOCMKRNL bitfield mask; 
SEQDEVLOD bitfield mask; 
MLINKER bitfield mask; 
KP_RESHDR bitfield mask; 
IS_RESHDR bitfield mask; 
NOTSHARED bitfield mask; 
GBLCLUSTR bitfield mask; 
SHMIDENT bitfield mask; 
NOCOPY bitfield mask; 
PIMERG_PO bitfield mask; 
SETVECTOR bitfield mask; 


end IACDEF BITS; 


constant LARGEST 
end IACDEF; 


end_module SIACDEF; 


equals 6 prefix IAC tag $C; 
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/*DO NOT ACTIVATE THE IMAGE (FOR INSTALL) 
/*MAKE IMAGE FILE WRITABLE 

/*ACT. SHAREABLE IMAGE FOR EXECUTABLE IMG 
/*ACT. SHARE. IMG FOR PRIV EXECUTABLE IMG 
/*ACT 2ND EXECUTABLE IMG INTO ADR SPA 
/*MAP IMAGE INTO NEXT FREE VA SPACE 
/*P1 MERGED ACTIVATION (LEGAL INPUT FLAG) 
/*SPARE 
/*LAST CLUSTER FLAG 
/*LINKABLE IMAGE 
/*RETRY IMAGE ACTIVATION 

*SHUT OFF CMKRNL,CMEXEC-SYSVER DIFF 
/*LOADING FROM SEQUENTIAL DEVICE (NET) 
7*CROSS LINKER FORMAT 
/*MAKE IMAGE HEADER RESIDENT 
/*IMAGE HEADER IS RESIDENT 
/*D0 NOT SET RED IN KFI ENTRY 
/*CURRENTLY PROCESSING GBL ISD CLUSTER 
/*SHARED MEMORY IDENT USED FOR GBL SEC 
/*NO PRIVATE COPY OF SECTION iN EXEC IMG 
/*P1 MERGED ACTIVATION WITH PO ADDRESS 
/* RANGE (INTERNAL FLAG ONLY) 
/*SIGNAL ATLERNATE ENTRY TO SET VECTORS 


/*LARGEST FLAG CALLER MAY SPECIFY 
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nodule SIODEF ; 
. 1/0 FUNCTION CODE DEFINITIONS 


/* 
wee START PHYSICAL 1/0 FUNCTION CODES *** 
a 


constant NOP equals 0 prefix 10 tag $; /*NO OPERATION 

constant UNLOAD equals 1 prefix 10 tag $; /*UNLOAD DRIVE 

constant LOADMCODE equals 1 prefix 10 tag $; /*LOAD MICROCODE 

constant SEEK equals prefix 10 tag $; /*SEEK CYLINDER 

constant SPACEFILE equals prefix 10 tag $; /*SPACE FILES 

constant STARTMPROC equals prefix 10 tag $; /*START MICROPROCESSOR 

constant oecae equers previn iS tag $3 a“V7 DRIVE 

constant equals refix ag $; 

constant SNDJNLMSG eausis pretin 10 tag $; /*GENERIC SEND JOURNAL CI MESSAGE 
constant DRVCLR equals 4 prefix 10 tag $; /*DRIVE CLEAR 

constant INITIALIZE equals 4 prefix 10 tag $; /*INITIALIZE 

constant RELEASE equals : prefix 10 tag $; /*RELEASE PORT 

constant SETCLOCKP equals prefix 10 tag $; /*SET CLOCK (PHYSICAL) 

constant OFFSET equals 6 prefix 10 tag $; /*OF FSET READ HEADS 

constant ERASETAPE equals 6 prefix 10 tag $; /*ERASE TAPE 

constant STARTDATAP equals 8 prefix 10 tag $; /*START DATA TRANSFER (PHYSICAL) 
constant RETCENTER equals prefix 10 tag $; /*RETURN TO CENTERLINE 

constant QSTOP equals 7 prefix 10 tag $; /*QUEVE STOP REQUEST 

constant PACKACK equals 8 prefix 10 tag $; /*PACK ACKNOWLEDGE 
constant SEARCH equals prefix 10 tag $; /*SEARCH FOR SECTOR 
constant SPACERECORD equals 9 prefix 10 tag $; /*SPACE RECORDS 
constant WRITECHECK equals 10 prefix 10 tag $; /*WRITE CHECK DATA 
constant WRITEPBLK equals 11 prefix 10 tag $; /*WRITE PHYSICAL BLOCK 
constant READPBLK equals 12 prefix 10 tag $; /*READ PHYSICAL BLOCK 
constant WRITEHEAD equals 15 prefix 10 tag $; /*WRITE HEADER AND DATA 
constant JNLDRVREQ equals 13 prefix 10 tag $; *JOURNAL DRIVER JNLACP REQUEST 
constant RDSTATS equals 135 prefix 10 tag $; /*READ STATISTICS 

constant READHEAD equals 14 prefix 10 tag $; /*READ HEADER AND DATA 

Constant READIRACKD. equals 1g prefix 10 tag $&  /*READ TRACK DATA’ 

ant equals refix ag $; 

sooetend AVAILABLE Sauals i$ aretie 10 tag $; /*AVAILABLE (DISK AND TAPE CLASS) 
constant DSE equals 21 prefix 10 tag $; /*DATA SECURITY ERASE (AND REWIND) 
constant REREADN equals § prefix 10 tag $; /*REREAD NEX 

constant 1 equets Z pretix 8 roe $ yecatter asthe 

onstani equals refix ag $; 

constent WRITECHECKH equals & prefix 10 tag $; /*WRITE CHECK HEADER AND DATA 
constant READPRESET equals ; prefix 10 tag $; /*READIN PRESET 

constant STARTSPNDL equals prefix 10 tag $; /*START SPINDLE 

constant SETCHAR equals § prefix 10 tag $; /*SET CHARACTERIST 

constant SENSECHAR equals prefix 10 tag $; /*SENSE TAPE CHARACTERISTICS 
constant WRITEMARK equals prefix 10 tag $; /*WRITE TAP RK 

constant WRITMKR equals prefix 10 tag $; /*URITE TAPE MARK RETRY 
constant DIAGNOSE equals prefix 10 tag $; /*D1AGNOS 

constant Oe equate 9 previ +4 tag $: tare BUFFERS 
constant equals prefix ag $; 

constant CLEAN equals 3 prefix 10 tag $; /*CLEAN TAPE 
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constant PHYSICAL equals 31 prefix 10 tag $; 


/t 
. *#* START LOGICAL 1/0 FUNCTION CODES *#* 


constant WRITELBLK equals prefix tag 
constant READLBLK equals prefix tag 
constant severe equals prefix tag 


constant SET 


equals 35 prefix 
constant REWIND 


equals § prefix 


ee be at ee a ta ee 
jelelelelealelealolol a! 

o 

<— 

(=) 
PPHAAAAAAAW 


constant SKIPFILE equals prefix tag 
constant SKIPRECORD equals 8 prefix tag 
constant SENSEMODE equals prefix tag 
constant WRITEOF equals 29 prefix tag 
constant LOGICAL equals 47 prefix tag 


/* 
je ##* START VIRTUAL I/0 FUNCTION CODES 


constant WRITEVBLK equals 48 prefix 10 tag $; 
constant READVBLK equals 49 prefix 10 tag $; 
constant ACCESS equals 50 prefix 10 tag $; 
constant CREATE equals 51 prefix 10 tag $; 
constant DEACCESS equals § prefix 10 tag $; 
constant DELETE equals prefix 10 tag $; 
constant MODIFY equals 54 prefix 10 tag $; 
constant NETCONTROL equals 54 prefix 10 tag $; 
constant READPROMPT equals : prefix I0 tag $; 
constant SETCLOCK equals prefix 10 tag $; 
constant FORCE equals 55 prefix 10 tag $; 
constant ACPCONTROL equals 56 prefix 10 tag $; 
constant STARTDATA equals § prefix 10 tag $; 
constant MOUNT equals prefix 10 tag $; 
constant TTYREADALL equals prefix 10 tag $; 
constant RUCONTROL equals 2 prefix 10 tag $; 
constant TTYREADPALL equals prefix 10 tag $; 
constant CONINTREAD equals 6 prefix 10 tag $; 
constant READINIT equals 60 prefix 10 tag $; 
constant CONINTWRITE equals 61 prefix 10 tag $; 
constant NEWVERSION equals 61 prefix 10 tag $; 
constant VIRTUAL equals 63 prefix 10 tag $; 


/t 
i FUNCTION MODIFIER BIT DEFINITIONS 


aggregate IODEF union prefix 10$; 


/* Basic 1/0 function code/modifiers structure 
#fcode_size = 6; 
FCODE_STRUCTURE structure fill; 
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/*HIGHEST PHYSICAL 1/0 FUNCTION CODE 


~~ SS 


/0 FUNCTION CODE 


AL_ BLOCK 
L BLOCK 


K CONTROL FUNCTION 
MINAL WITH PROMPT 


ALING BUFFER FLUSH 
7 tee ACP CONTROL 


an” 
ODL ana we 
x 


VOLUME 

ERMINAL READ PASSALL 
RECOVERY UNIT JOURNAL CONTROL FUNCTION 
TERM READ W/PROMPT PASSALL 

onnect to interrupt readonly 
JOURNAL READ INITIALIZE 

Connect to interrupt with write 
Create new journal file version 
HIGHEST VIRTUAL 1/0 FUNCTION 


STARDEFFL.SDL;1 
FCODE pisttete mask Length orcoee size; 
FMODIFIERS bitfield mask Length 16 
end FCODE_ STRUCTURE; 


/* General disk and tape function code mod 


DISK bach eal RS structure fill; 
tfield Length atee € site 
reserved 19r gevice -dependent bitfield 
GRASE bitfield 
INHERLOG bitfield we 
feseryed, or_devi oe siePendent bitfield 
ENCRYPT BittTeld 


/* eounal disk function code modifiers 


DISK_MODIFIERS structure fil 
Tcode_fill bitfield Length #fcode_size 
reserved _for_device _Gependent bitfield 
INHSEEK BittTeld mask; 
end DISK_MODIFIERS; 


/* General tape function code modifiers 


TAPE_MODIFIERS structure fil 
Fcode_ fill bitfield Bass #fcode_size 
REVERSE bittield mask; 
nomen bi sk; 
eserved_for Soules sdependent bitfield 


INHEXTGAP psiiete d mas 
end TAPE XRODIFIER 


/* DU, disk class driver function modifier 
DU_MODIFIERS structure fill; 
fcode fill bitfield Length #fcode_size 
SHADOD bitfield mask; 
EXPRESS bitfield mask; 
FORCERR bitfield mask; 
end DU_MODIFIERS; 


~ fcode fill bitfield Length #fcode_size 
COMMOB bittietd mask; 5 
MOVETRACKD bitfield mask; 
DIAGNOSTIC ort riele mask; 
SKPSECINH bitfield mask; 
end DR_MODIFIERS; 


/* DY driver function modifier bits. 
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-#fcode size; /* Function Mod 


ifiers 


fill; 
Length 4 


Length 1 


fill; 
length 6 


fill; 


Length 4 


bits 


fill; 


fill; 


/* Function pode fret ‘tel 


fill; 

/* Erase data 

oe error logging 

/* Encryption 

/* Write check data after transfer 
/* Inhibit error retry 


LL; 
/* Inhibit implied seek on physical functions 


/* Reverse operation 
Ate wait for rewind to complete 
/* Inhibit extended inter-record gap 


/* Do shadowing, as aparoer tate 
/* Use MSCP express modi 
/* Cause FORCED ERROR flag. to be set 


/* Diagnostic command 
/* Move srags descriptor 
/* Diagnostic function 
/* Skip sector inhibit 


en 
en 
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DY MODIFIERS | ptructure f 
+! » tfield stenath #fcode_size fill; 
DECDATA bitfield ma /* Write deleted data mark 
end DY_MODIFIERS; 


/* DD driver (TUS8) function modifier bits. 


0D to struc 
fut tt Hela‘ te length #fcode_size fill; 
one gen! b tf pe mask; /* Do not use MRSP for this operation 
end DD_MODIFIERS 


/* Magnetic tape 1/0 function modifier bits for the TS11. 


TS11 reer ate struc ucture fill; 

Fcode tield Length #fcode_size fill; 

reserved Ry device_dependent bitfield Length 2 fil 

SWAP bitfield mask; /* ies arse (T$11) 

OPPOSITE bitfield mask; ie Opposite bit for rereads (TS11) 
end TS11_MODIFIERS; 


/* TU driver function modifier bits 


TU_MODIFIERS structure fill; 
fcode.. by bitfield Length #fcode_size fill; 
d_for_device saapeneent bitfield oaie 3 f 
CLSEREXCP bitfield mas 
end TU_MODIFIERS; 


/* ACP function modifier bits. 


ACP 00 UF ERs structure fill; 
“fc ield Length #fcode_size fill; 


Ll; 
/* Clear serious exception condition 


Ll bit 
ACCESS ae d mask; /* Access file 
CREATE bitfield mask: /* Create file 
DELETE HM pe mask; /* Delete file 
MOUNT bitfield mask; /* Mount volume 
DMOUNT bitfield ro /* Dismount volume 
REMOUNT Ootettecd mask; /* Remount volume 
end ACP_MODIFIERS; 
/* CR (card reader) driver function modifier bits. 
CR MODIFIERS structure fil 
f fill rivers ‘Length #fcode_size fill; 
BINARY bitfield m /* Binary read 
PACKED bittield asehi /* Packed read 
end CR_MODIFIER 


/* MB (mailbox) Mercer function modifier bits. 
MB_MODIFIERS structure fill; 
fcode_f 


ill bitf bi Length #fcode_size fill; 
bit field ma * Do not wait for operation cenplote 
yy Ay bitrield’ mask; /* Request ast on waiting reoeer 
RTATIN bitfield mask; /* Request ast on Melting write 
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SETPROT bitfield mask; 
NORSW SALT Bh i eld mask; 
end MB_MODIF 


/* TT driver READ function modifier bits. 


TT =READ et H Ube Het ten fill; 
: { eld Length #tcode_size fill; 
Stat b Sirol mask; 
TIMED b feta” mask; 
CVTLOW b tied mask; 
NOFILTR b tt ela mask; 
DSABLMBX : tftield mask; 
PURGE bit NB mask; 
TRMNOECHO b Friele mask; 
REFRESH ois] eld mask; 
ESCAPE bitfield mask; 
EXTEND bitfield mask; 
end TT_READ_MODIFIERS; 
/* TT driver WRITE function modifier bits. 
TT_WRITE_MODIFIERS structure fill; 
fcode fill bitfield Length #fcode_ size fill; 
CANCTRL 0 bittield mask; 
an bitfield mask; 
NOF ORMA DBS A mask: 
BREAKTHRU bitfield mask; 
NEWLINE bitfield mask; 


end TT_WRITE_MODIFIERS; 
/* TT driver SENSEMODE function modifier bits. 


TT = SENSERODS MODIFIERS structure fill; 
fiTl b ef ierd cen th #tcode. size fill; 
TYBEARDCN! Batt ield m 
d_modem bittield Length 1 fill; 
end 1! *SENSEMODE MODIFIERS; 


/* TT driver SETMODE subfunction modifier bits. 


TT oSETRgoE pOpir tens structure fill; 
e_Ti Ut bitfield length #fcode_size fill; 

asoae “bitfield mask; 
CTRLYAST bitfield mask; 
CTRLCAST bitfield mask; 
HANGUP bie raele mask; 
OUTBAND bitfield mask 
TT_CONNECT BITFIELD MASK; 
TT_DISCON BITFIELD MASK; 
TT_ PROCESS BITFIELD MASK; 
BRBCST BITFIELD MASK; 


end TT ” SETMODE MODIFIERS; 


/t 
/t 


/* TT driver MAINTIANCE subfunction submodifier bits. 
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Set volume protection 
Do not allow resource waits 


Noecho 
Timed 
senvere lower case 


(Bee mailbox 

Purge sypoanece 

Termina ore are not echoed 
Control-R interrupted read 
Terminate read on escape sequence 
Used by alternate class drivers 


Cancel control 0 

Enable mailbox 

Do not format output 
Broadcast s/f 

out ut a ney! ine 

NOTE: bit 13 is refresh 


Sense ORS MODEM ‘efermetton 
Reserve RD_MODEM 


Enable maint sub modifiers 
Set control Y AST 

Set Control C 

Set mode and hang up Line 
Set out of band AST 

Connect to detached soraine} 
Disconnect detached terminal 
Define controlling process 
Define broadcast mask 
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TY AAINT 00 FIERS aretyere fits 
fcode 


fill bitfield tongs atc 3tn7f fill; 
reserve point. escape bi field t fill; { Reserve petntensnce escape 
L eld mask; /* D0 agnost} c¢ loopb peers 
UNLOOP bitfield mask; /* Diagnosti § reset loopback 
LINE_OFF not eld mask; /* Disable Line 
SET_MODEM Oi st rete ae mask; /* Dia nest ¢ modem control 
| A rite ela mask /* Enable Line 
T bitf ¢ d mesh: /* blagnostic ex eusernat Loopback 
LOR ENA bitf ot¢ mask; /* Enable auto xX 
AUTXOF = reps S bitf peek /* Disable auto NOFF 
td sable b tfield length 1 fill; { Reserve internal disable bit 


/* TT ‘aol out-of-band modifier bits. 


TT_OUTOFBAND_MODIFIERS structure fill; 
feode_fill bitfield Length #fcode. asize fill; 
reserve_maint_escape bitfield length 5 fill; { Reserve maintenance escape 
iets atts ld mask; /* Include character in stream 
T T BITFIELD MAS Sk; /* Abort current 1/0 

end TT ~QUTOFBAND MODIFIERS; 


/* Network WRITE VIRTUAL function modifier bits. 


Ll; 
“fcode fill bitfield length #fcode_ size fill; 
INTERRUPT bitfield mask; /* Interrupt message 
end NET_WRITE_MODIFIERS; 


/* Network ACCESS/DEACCESS function modifier bits. 


NET ~ACCBEA MODIFIERS structure fil 
ode_Fill ie tfield | teneth 3f atcode_ size fill; 
ceseried bittield pense 
ABORT field mas /* Disconnect abort/connect reject 
SYNCH bittield — /* Synchronous disconnect 
end NET_ACCDEA MODIFIERS; 


/* DATALINK driver SETMODE subfunction modifier bits. 
DLINK SETROOF MODIFIERS structure fill; 


ffode fill bitfield Length #fcode_ size fill; 

STARTOP bitfield mask; /* Start protocol 

SHUTDOWN bist eld mask; /* Stop protocol 

ATTNAST » tfield peek; /* Attention AST 

CTRL bit sete & mask /* Controller (ie. not station) function 
reserve _set_mod em bitfield length 1 fill; { Reserve set modem bit 


end DLINK_SETMODE MODIFIERS; 
/* DATALINK driver SENSEMODE subfunction modifier bits. 
OL Im z SENSERDPE noe Hela t structure fill; 

e 


ryt ngth Hieses elie fill; 
5oRER bitf its mask; /* Read device memory 
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length 1 fill; 


constant sanumout equals 

constant PTPBSC equals i925 

constant LOOPTEST equals i; 

/* X25 driver WRITEBLK function modifier bits. 


x25 nite -MODIFIERS structure fill; 


ill bitfield Length #fcode_ size fill; 


neers tfield mask; 
QUALIF 16D bitfield: mask; 
end X25_WRITE_MODIFIERS; 


/* X25 driver ACCESS function modifier bits. 
x25 ACCESS MODIFIERS structure fill; 


code WU bitfield length #fcode_size fill; 


nEDIR RE iyerete @ pens 
T bitfield m 

end XS PRCCESS TRODIFIERS: 
/* LPA-11 driver STARTDATA modifier bits. 
LPA_START_MODIFIERS structure fill; 

“tcode fill bitfield length #fcode_ size fill; 
oe oer bitfield mask; 
end LPA_ SraRt MODIFIERS; 
/* XA (DR11-W) driver function modifier bits. 


XA_MODIFIERS structure fill; 


fcode fill bit stele Length #fcode_size fill; 
‘WORD bittiel ask; 
filler bitfield Tength 2 fill; 
SETFNCT bitfield mask; 
DATAPATH bitfield mask; 
RESET bitfield mask; 
CYCLE bitfield mask; 
end XA_MODIFIERS; 
/* 3271 driver function modifier bits. 
atag +4 ROD TF TERS structure fill 
fcode_fil bitfield Seat ificode. size fill; 
filler bist eld Length 
SETCUADR bitfield mask; 
SETBSIZE Oi er iele mask; 
SETPOOLS7 bitfield mask; 
SETENQCN pia tete mask; 
CLEAR bitf ef mask; 
LPBEXT bitfield ama 


® 
® 


/* 
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Read renee B ecotus 

Read coun 

Featestler” function (SETMODE compatible) 
Clear counters 


Send or rcv until cnt runout 
Point to _netns BSC control 
Loop tes 


More data follows (M-bit) 
Use qualified sub-channel (Q-bit) 


Redirect virtual call 
Accept virtual call 


Set event flag 


Word (interrupt)/block (DMA) mode specifier 


Set ‘‘FNCT'’ bits in device CSR 

Change UBA Geteparh ie (direct/buf fered) 
Device reset specif 

Set “‘cycle’’ b n aoeten CSR 


Set a new CU address 

Set a new maximum buffer size 
Set a new pool size 

Set a new ENQ threshold 

Zero status counters 

Loopback is external loopback 
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myth) AN it \s mask; 
EADCSR d mask; 
end Tem 1 POblF Lens. 
/* XW driver function modifier bits. 
XW Wiecacee structure fil 
Tharsis 


users hit et fletd mask; 
SLAVLOOP b tte mask; 
NODSRWAIT bitfield mask; 
MAINTLOOP bitfie mesks 
LASTBLOCK bitfield m 
filler bitfield Length Kj fill; 
INTCLOCK bitfield mask; 

end XW_MODIFIERS; 


/* CJF = write journal modifiers 
CJF tht MODIFIERS structure fill; 


de_fill he _length #fcode_ size fill; 

ORCE bitfield ma 
CNTRLENTRY bitfield’ mask; 
MULTIPLE bitfield mask; 
ENDRU1 bitfield mask; 
ENDRU2 bitfield mask; 

10 bitfield mask; 
ADDFLTR bitfield mask; 
DELFLTR bitfield mask; 

NEWVERSION bitfield mask; 

end CJF_WRITE_MODIFIERS; 


/* CJF = ACPCONTROL modifiers 
CJF ~ACPCT@L, vette structure fill; 


f 7 bitfi 
ALLINCDEV bitfield mask 
MNTJNLDEV bitfield mask: 
DALLUNLDEV bitfield mask; 
MNTJNLDEV bitfield mask; 
pee eeeee bitfield mask; 
REMASTER bitfield mask; 
end CJF_ACPCTRL_MODIFIERS; 


eld Lengeh #fcode_size fill; 


eld Length #fcode_ size fill; 


/* CJF = modifiers for internal JNLdriver requests for 


CJF_INT_MODIFIERS structure fil 
“fcode 


fill bit 
ANCELIO bitfield mask; 
TOPSP bitfield mask 
STARTSP bitfield mask; 
SYNCHCAN bitfield mask; 
SLVCRUCB bittield mask 
SLVDELUCB b tf eld mre 
REPOSITION bitfield mask; 
end CJF_INT_MODIFIERS; 


field length ay size fill; 
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al loopback (DUP11) 


_—94 
-ZJ 


Diagnostic function 
Ae eg A” functi 
Do not wait for DSR (diag) 
Internal maint loop 

Last block of message 


Internal clock 


Force out journal entries to media 
Write control entr ry 
Gather write - (mu Stple buffers? 


Create new version 


Allocate journal device 
Mount journal device 
Deallocate journal device 
eee journal device 
Create journal directory 
Remaster in progress 


JNLACP 


Cancel 1/0 to tape 
Stop spooling to spool file 

Start spool ing to spool file 
Synchronize with the cancel 

Slave UCB create 
Slave ote delete 
Reposit 
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/* CJF = RUCONTROL modifiers 


CJF BUD TRL FUL bitte structure fill; 
ld engen #fcode size fill; 
acco Dts! itttel d mask; 
sitet Ri} eld mask; 
jield mask; 
end at BRUCTRE MODIFIERS; 


/* CJF = NEWVERSION modifiers 


CJF _NEWVERS MODIFIERS structure fill; 
“fcode fTLl bitf ae #fcode_ size fill; 
CONNECT b tfiel 
DISCONNECT batt 

end CJF_NEWVERS_MOD 


/* CJF = CREATE mod 

CJF_CREATE_MODIFIERS st 
“fcode Fill bitfield hongth Methe. size fill; 
CREMASTER b tH ld m mask ; 

end CJF_CREATE_MODIFIERS; 

/* CJF = send journal message modifiers 


CJF_SENDMSG_MODIFIERS structure fill; 
“fcod 


i 
d 
i 
I 
i 
; ructure fil 
© 


e fill bitfield Length #ftcode_size fill; 

INQWRTBUF bitfield mask; 

ESUBWRT bitfield mask; 
WRIFOVRCPL bitfield mask; 
GETPART bitfield mask; 
ACKWRITE bitfield mask; 

JNL_INIT bitfield mask; 

GETMINFO bitfield mask; 

end CJF_ SENDMSG_MODIFIERS; 
end IODEF; 


end_module SIODEF; 


/* 


/* 
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Get RU-ID List {9 journal 
Get RU- curne) | 
Set RU state for aoe (RUE bit) 


Connect old version 
Disconnect old Coestontsl 


Create remaster request 


Inquire for write buffer info 
Resubmit write buffer 

Write failover complete 

Get partial entry 

ACK Journal write 

Get CJF startup info 

Get CJF master info 
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module SJPIDEF; 
+ 


is Get Job Process Information Data Identifier Definitions 


/ el 
/ weet NOTE weve * 
/* be 
/* New items must oiuays be added to the END of each item List : 
/* (preceeding the ENDListname item) so that users will not have " 
/* to relink. be 
/t- ed 
® 
® 
* 
® 
/* DEFINE TABLE NUMBERS : 
/* STRUCTURE CODES MUST START AT 1 ed 
constant ADRTYPE equals 1 prefix JPI tag $C; /* ITEM IS ADDRESS OF DATA bd 
constant CTLTYPE equals § prefix JPI tag $C; /* ITEM IS IN CONTROL REGION be 
constant PCBTYPE equals prefix JPI tag $C; /* ITEM IN PCB be 
constant PHDTYPE equals 4 prefix JPI tag $C; /* ITEM IN PHD ad 
constant PCBFLDTYPE equals 5 prefix JPI tag $C; /* ITEM IS BIT FIELD bd 
constant PHDFLDTYPE equals § prefix JPI tag $C; /* ITEM IS BIT FIELD be 
constant JIBTYPE equals prefix JPI tag $C; /* ITEM IN JIB (SUBTYPE) ed 
constant MAXSTRUC equals 6 prefix JPI tag $C; /* TOTAL OF 6 TABLES e 
constant LISTEND equals 0 prefix JPI tag $C; /* DEFINE ITMLST TERMINATOR 
constant CHAIN equals -1 prefix JPI tag $; /* CHAIN INDICATOR 


“ NOTE!! The following constants match values in SJIBDEF. 


constant OTHER equals 0 
constant NETWORK equals 1 ; 
constant BATC equals prefix JPI tag $K; /t 
4 
4 


\ 


constant REMOTE equals tag $k: /t BIYPE val 


ues 
ATCH & INTERACTIVE) 


a 
H 
constant INTERACTIVE equals prefix JPI tag $K; /* * 
constant DETACHED equals prefix JPI $ _JOBTYPE values 
constant LOCAL equals prefix JP] tag $K; /* ~JOBTYPE values | 
constant DIALUP equals refix 13 tag $ w pe hha values 
B 


PPP PPL PPP LPL IY AAA AAAAAAAAA AAA AAA ANON 


0 
/* ITEM IDENTIFIERS FOR PCB a 
constant ( { 
ASTACT * ACCESS MODES WITH ACTIVE ASTS 

» ASTEN /* ACCESS MODES WITH ASTS ENABLED | 

- PRI /* CURRENT PROCESS PRIORITY 

- OWNER /* PID OF CREATOR PROCESS 

- UIC /* UIC OF PROCESS 

- STS /* PROCESS STATUS 

- STATE /* PROCESS STATE 

- MEM /* MEMBER FIELD OF UIC 

« GRP /* GROUP FIELD OF UIC 

« PRIB /* PROCESS BASE PRIORITY 

« APTCNT /* ACTIVE PAGE TABLE COUNT 

. U /* TERMINATION MAILBOX UNIT 
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» WSAUTHEXT /* MAX EXTENT OF WORKING SET SIZE 
» AUTHPRI /* AUTHORIZED PRIORITY FOR S$SETPRI 
» PAGFILLOC /* PAGE FILE BACKING STORE ADDRESS 
° er keen - IMAGE COUNTER (CLOCKED BY RUNDOWN) 
LAGS * PROCESS HEADER FLAGS WORD 
/* abpe TERS CODES BEFORE THIS COMMENT 
X INDEX IN PROCESS HEADER 
j equals JPI$C _PHDTYPE@B increment 1 prefix JPI tag $; 


/* ITEM IDENTIFIERS FOR CONTROL REGION 
constant ( 


VIRTPEAK /* PEAK VIRTUAL SIZE 
» WSPEAK /* PEAK WORKING SET SIZE 
- USERNAME /* USERNAME STRING 
- ACCOUNT /* ACCOUNT NAME STRIN 
- PROCPRIV /* PROCESS PRIVILEGE MASK 
- VOLUMES /* VOLUMES MOUNTED 
- LOGINTIM /* TIME OF LOGIN OR PROCESS CREATION 
~ IMAGNAME /* CURRENT IMAGE FILE NAME 
- SITESPEC /* PER=PROCESS SITE-SPECIFIC CELL 
- MSGMASK /* PROCESS DEFAULT MESSAGE FLAGS 
° fe D LANGUAGE INTERPRETER NAME 
- TABLENAME /* COMMAND LANGUAGE INTERPRETER TABLE NAME 
» CREPRC_FLAGS /* SCREPRC FLAGS USED TO CREATE THIS PROCESS 
, UAF_FLAGS /* FLAGS FROM UAF RECORD 
° MAXBETACH /* MAXIMUM DETACHED PROCESSES FOR SINGLE USER 
° oe + ae /* sor} ap ACTIVE PROCESSES FOR SINGLE USE 
HRF ILL /* MAXIMUM OPEN SHARED FILES 
/* ADD ST EMCCODES BEFORE THIS COMMENT 
LASTCTL /* MAX INDEX IN CONTROL REGION 
j equals JPISC_CTLTYPE@8 increment 1 prefix JPI tag $; 
/* ITEM IDENTIFIERS FOR ADDRESS DATA 
constant ( ia 
preves /* ADDRESS OF “‘EXCEPTION VECTOR’ VECTOR 


EXC /* ADDRESS OF LAST CHANCE EXCEPTION VECTORS 
/* abo” TTERCODES BEFORE ag i COMMENT 
LASTADR /* MAX INDEX IN ADDRESS TABLE 
§ equals JPISC_ADRTYPE@B increment 1 prefix JPI tag $; 


/* ITEM IDENTIFIERS FOR PCBFLD 
constant 
/* ADD Iten-coves BEFORE THIS COMMENT 
LASTPCBFLD /* MAX INDEX IN PCBFLD T Aaye 
) equals JPISC_PCBFLDTYPE@8 increment prefix JPI tag $; 


/* ITEM IDENTIFIERS FOR PHDFLD 


CODES BEFORE THIS COMMENT 
FLD /* MAX INDEX IN PHDFLD TABLE 


ct 


: 
c 
c 
{ 
: 
é 
: 
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) equals JPISC_PHDFLDTYPE@8 increment 1 prefix JPI tag $; 
end_module $JPIDEF; 


c 
! 
( 
{ 
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module SKGBDEF; 


/eee 

. : 97 Grant Block definitions: coracy of ree ords in the rights database 
e. These records (1) associate dentiti er codes with names, and 

. (2) List the holders of all identifiers in the system. 


Boe 


aggregate KGBDEF structure prefix KGBS$; 


IDENTIFIER Longword unsigned; /* ere ater prettier code 
ahh LF ace plttiet Longword unetened: /* Attribute bit definitions 
eld mask; Resource use allowed 
end AFT RIBG 
HOLDER ee th | unsigned; /* Holder identifier 
constant HOLD_RECORD equals ey /* End of holder record 
NAME character Length 32; /* Identifier name (blank filled string) 
constant IDENT_REC RD equals o3 /* End of identifier record 
LEVEL word unsigned; /* File structure level 
constant Lovett od equals %X0101; /* Version 1 structure level 
FILL_1 word fil $$; 
SYS_ID quadword a ned; /* System identifier 
NEXT_ID Longword unsigned; /* Next available identifier 
A MAINT_RECORD equals of /* End of maintenance record 
end KGBDEF ; 
Jee 
po Define the environmental rights ID values 
ten 
#1D = £x80000000 
constant (BATCH ip, /* Batch ID value 
DIALUP _I /* Dialup ID value 
INTERACTIVE. ID, /* Interactive ID value 
LOCAL_ID /* Local ID value 
NETWORK_ID, /* Network ID value 
REMOTE_TD) /* Remote ID value 


equals #1D+1 increment 1 counter r eID prefix “GBS; 
end_module $SKGBDEF ; 


STs 


an 


STARDEFFL.SDL;1 
module SLADEF; 
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/* 
x LPA=11 CHARACTERISTICS DEFINITIONS 
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/t- 

/*MICROCODE TYPE VALUES 
constant MRMCODE equals 1 prefix LA tag $K; /* MULTIREQUEST MICROCODE 
constart ADMCODE equals § prefix LA tag $K; /* DEDICATED A/D MICROCODE 
constant DAMCODE equals prefix LA tag $K; /* DEDICATED D/A MICROCODE 
aggregate LADEF union prefix LAS; 

LADEF _BITSO structure fill; 
MCVALID PT be mask; /* MICROCODE vA JS 
MCTYPE bitfield Length : /* MICROCODE TYPE 
CONFIG bitfield ow 6; /* DEVICE rar SGURATEON BITS 
RATE bitfield Length 3; /* CLOCK RATE 
PRESET bitfield length 16; /* CLOCK PRESET 
end LADEF _BITSO; 
LADEF _BITS1 structure 
FILL_1 bitfield tength’ 3 fill prefix LADEF tag $$; /* SKIP OVER MICROCODE VALID AND TYPE 
CLOCRA bitfield mas * CLOCK A 
CLOCKB bitfield mask; Ss CLOCK 8B 
AD1 bitfield mask; /* A/D! 1 
AD2 bitfield mask; /* A/D ! 2 
DA bitfield mask; /* D/A 
DIO1 bitfield mask; /* DIGITAL 1/0 ! 1 
p10¢ bitfield mask; /* DIGITAL 1/0 ! ¢ 
DIOS bitfield mask; /* DIGITAL 1/0 ! 
D104 bitfield mask; /* DIGITAL 1/0 ! 4 
DIOS bitfield mask; /* DIGITAL 1/0 ! 5 
end LADEF _BITS1; 
LADEF _BITS2 structure fil 
FILL_2 bitfield Lenesh" 93 fill prefix LADEF tag $$;/*(IN USER'S COMMAND TABLE) 
‘ BEROURN bistield mask; /* BUFFER OVERRUN NON-FATAL BIT 
en a ; 


end LADEF; 
end_module SLADEF; 
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godule SLCKDEF; 
Ad LOCK MANAGER DEFINITIONS 


aggregate LCKDEF union prefix LCKS$; 
LCKDEF_BITSO structure fill; 
VACBLK bittieié ask 
CONVERT bitfield mask; 
rOuE VE bitfield mask; 
SYNCST pit tield mask; 
SYSTEM b Frigee mask; 
NOQUOTA t tfield mask; 
CVTSYS b Fiigle mask 
RECOVER bitfield mask; 
PROTECT bitfield mask; 
NODLCKWT bitfield mask; 
NODLCKBLK bitfield mask; 
end LCKDEF _BITSO; 
LCKDEF _BITS1 structure fill; 
DEGALL bitfield mask; 
CEL bitfield mask; 
INVVALBLK bitfield mask; 
end LCKDEF _BITS1; 
constant ( 
NL 
» CRMODE 
- CWMODE 
- PRMODE 
» PWMODE 
EXMODE 


§ equals 0 increment 1 
end LCKDEF; 
end_module S$LCKDEF; 
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ALUE BLOCK INCLUDED 
CONVERSION REQUEST 

O NOT QUEVE REQUEST 
SYNCHRONOUS STATUS REQUESTED 
SYSTEM LOCK 

DON'T CHARGE QUOTA 

CONVERT TO SYSTEM 

RECOVER LOCK DURING FAILOVER 
PROTECT LOCK DURING FAILOVER 
NO DEADLOCK WAITING 

NO DEADLOCK BLOCKING 


DEQUEVE ALL LOCKS 
CANCEL REQUEST 
INVALIDATE VALUE BLOCK 


/*LOCK MODES 


/* 
/* 
/* 
/* 
/t 


~ 
dl 


NULL 

CONCURRENT READ 
CONCURRENT WRITE 
PROTECTED READ 
PROTECTED WRITE 
EXCLUSIVE 


prefix LCK tag SK; 


ST) 


3 3 
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module SLKIDEF; 
ae 


is Get Lock Information Data Identifier Definitions 
/e wxeee NOTE eeee 
wh 


/ 
/* New items must ohuere be added to the END of each item List 
/* (preceeding the ENDListname item) so that users will not have 
‘. to relink. 

om 


/* ITEM LIST BLOCKS 


“oer Bec to t LKIDEF structure prefix LKI$; 
Longword unsigned; /*LOCK ID 
ongword unsigned; /*PR I 
SYS1D longword unsigned; /*SYSTEM ID (RSB) 
RQMODE byte unsigned; /*RE MOD 
GRMODE pyte unsigned; /*GRANTED MODE 
QUEUE byte unsigned; /*LOCK QUEUE 
SPARE byte fill tag $$; /*SPARE BYTE 
REMLKID longword unsi ned; /*REMOTE LOCK ID 
REMSYSID songuor unsigned; /*REMOTE SYSTEM ID (LKB) 
constant “LENGTH'’ equals . prefix LKI$ tag K; /*LENGTH OF LIST BLOCK 
constant “‘LENGTH'’ equals . prefix LKI$ tag C; /*LENGTH OF LIST BLOCK 
end LKIDEF; 
/* DEFINE NAMSPACE BITS 
aggregate NAMSPACE structure prefix LKI$; 
P word unsigned; /*GROUP OF OWNER UIC 
RMOD byte unsigned: /*ACCESS MODE OF REGUEST 
STATUS are unsigned: /*STATUS OF RESOURCE 
STATUS BITS struct 
ICL bitfield Tength 31 fill prefix LKI tag $$; /* SPARE 
eae pisrre eld mask; /* SYSTEM WIDE RSB 


end ST = 
end NAMSPACE; 


/* DEFINE STATE FIELDS 
*09r OP ATE RO STATEF structure prefix LKI$; 


RQMODE byte unsigned; pene ous st MODE 
STATE_GRMODE byte unsigned; /*GRANTED MODE 
STATE QUEUE byte unsigned; /*LOCK STATE CODE 
ATE 
constant ( /*LOCK STATE CODE VALUES 
GRANTED /* GRANTE 
- CONVERT /* CONVERSION 
- WAITING /* WAITING 
- RETRY /* RETRY REQUEST 
« SCSWAIT /* SCS WALT 
« RSPNOTQED /* RESPONSE wet QUEUED 
« RSPQUEUED /* RESPONSE QUEU 44 
~ RSPGRANTD /* RESPONSE GRANTED 
- RSPDOLOCL /* RESPONSE DO LOCALLY 
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STARDEFFL.SDL;1 16-SEP-1984 1 
RSPRESEND /* RESPONSE RESEND 
§ equals 1 increment -1 prefix LKI tag $C; 
/* OGr ING TABLE NUMBERS 
/* STRUCTURE CODES MUST START AT 1 
constant LKBTYPE equals 1 prefix LKI tag $C; /* ITEM IN LKB 
constant RSBTYPE equals § prefix LKI tag $C; /* ITEM IN RSB 
constant LISTEND equals prefix LKI tag $C; /* DEFINE ITMLST TERMINATOR 
/* ITEM IDENTIFIERS FOR LKB 
constant ( 
P /* PROCESS ID 
+ STATE /* CURRENT LOCK STATE 
» PARENT /* ID OF PARENT LOCK 
» LCKREFCNT /* SUB-LOCK REFERENCE COUNT 
- LOCKID /* LOCK ID 
- REMLKID /* REMOTE LOCK ID 
LASTLKB /* MAX INDEX IN LKB TABLE 
j equals LKISC_LKBTYPE@8 increment 1 prefix LKI tag $; 
/* ITEM IDENTIFIERS FOR RSB 
constant ( 
NAMSPACE /* RESOURCE NAME SPACE 
» RESNAM /* RESOURCE NAME 
- RSBREFCNT /* SUB-RESOURCE REFERENCE COUNT 
» VALBLK /* VALUE BLOCK 
- SYSTEM /* SYSTEM ID OF SYSTEM WITH RESOURCE 
- LCKCOUNT /* COUNT OF LOCKS ON RESOURCE 
- BLOCKEDBY /* LIST OF LOCKS BLOCKED BY CURRENT LOCK 
« BLOCKING /* LIST OF LOCKS BLOCKING CURRENT LOCK 
- LOCKS /* LIST OF ALL LOCKS ON RESOURCE 
5 LASTRS /* MAX INDEX IN RSB 


RSB 
equals LKISC_RSBTYPE@8 increment 1 


end_module SLKIDEF; 


of 
prefix LKI tag $; 


$v 
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nodule SLNMDEF; 
LNM = LOGICAL NAME FLAGS 


These Ms 49 po ine logical name astrtee es 
attributes, ump a! te table By 0k 3} 

These are at) into one definition for ggnv 
nterface. go of bits that 4 Be efine 
oytes cor responc nq to the four categori ust | 

that there = ha = of Tr epeons to equ 7. 
This definit in the SCRELNT, SCRELNM, 
t interface astintiten 


aggregate LNMDEF structure prefix LNMS; 


NO_ALIAS bitfield meek; 
con ime bitfield mask; 
CR bitfield mask; 
TABLE bitfield mask; 
ILL_O bitfield Length 4 fill; 


eld mask; 
e mask; 


ask; 
ength 5 fill; 
eld mask; 


ength § 


le 
L 
L fill; 
Length 4 fill; 
L 
€ 
le 


eld pass 
ield m 
ngth x fill; 


a---— GCa-—- Aad — 


end Leer 

constant ‘'TABNAMLEN'' equals Hy prefix LNM$ tag C; 
constant ‘'NAMLENGTH'’ equals 255 prefix LNM$ tag ¥ 
constant 'MAXDEPTH"’ equals 10 prefix LNM$ tag C 


constant ( 
N 


) equals 1 increment 1 prefix LNMS$ tag 
constant ‘‘CHAIN’’ equals -1 prefix LNM$ tag ' 


eni 


* Logical name table is 
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logical name translation 
ristics, and ,systen service options. 


jence n the user 
mis, aiwieed nto four 


l name attributes -- bits 0-7 


Do not allow outer mode ol tes 

Do not copy into subproc 

sreat d with old SCR Log. soretes 

This is a table name 

Fill out logical name byte 

name translation attributes -- bits 8-15 


* Do not display result of translation 


Do not retranslate result of translation 
Translation does exist at this index 
Fill out translation byte 
name table characteristics -- bits 16-23 
ghocoadle (80 space) 
eererved bit numbers 1 
L out table byte 


Syston service © apt tone == bits 24-31 


‘ 
/t 


ay map to existing logical name table 
pay nee case-insensitive translation 
Fill out options byte 


Maximum tength of a name contained yithin a directory table 
Maximum logical name / translation Length 
Maximum logical name recursion depth 


Translation snden 
[rons aston st string 
Attrib 
Logical name Tels name 
Length of Sragelesten string 
peeees mode of name 
Maximum Sronset on index 
Parent lo cel name table name 
“Inter LNA bl so address 

nternal use MTL 

mailbox p 

bet ne item List codes 


Chain to next List 
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end_module SLNMDEF ; 
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nodule SLPDEF; 
a LINE PRINTER CHARACTERISTICS DEFINITIONS 


aggregate L LPDEF union prefix LPS; 
F_BITS gtrycture fill; 
CR bitf ong eek; 
MECHFORM bitfield mask; 
ett bitfield mask; 
DAVFU » titeid mask; 
WRAP » tfield mask; 
TAB bitfield mask; 
TRANS bitfield mask; 
OWER b riieid mask; 
PASSALL bitfield mask; 
FALLBACK bitfield mask; 
SIXELS bitfield m oh; 
BITMAPPED bitfield m 
FILL_2 bitfield Leng th Kia fill prefix LPDEF tag 
PAGE _L bitfield mask length 8; 
end LPDEF_BITS; 
constant LP11 equals 1 prefix LP tag $; 
constant LA11 equals ¢ prefix LP tag $: 
constant LA180 equals prefix LP tag $; 


end LPDEF; 
end_module $LPDEF; 


/* CARRIAGE RETURN NEEDED 

/* Be CHAN CAL FORM FEE 

/* NON PR top ABLE CHAR. ACCEPT(DMF-32) 
/* DAVFU AVAI 

/* CHAR. WRAP MODE 

es TAB nee yA 


TRUNCATE o soe at fare ieee width 
/* FALLBACK MRODE 
a aw ES SixEL§ 


$_ BIT MAPS 
$$; We NSPARE a BITS 
/* PAGE LENG 


$v) 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


G 
N 


IGIT 
ONFI 


043 CONF 


